Nur Welle 1 und 2

Überlagerung beider Wellen

Z_1: (0, 0)
b = 8 (slider from 0 to 10, step 0.1)
Z_2: (b, 0)
λ = 2 (slider from 0 to 10, step 0.1)
t = 0 (slider from 0 to 10, step 0.01)
c = 2 (slider from 0 to 5, step 0.1)
w_1(x) = If[0 ≤ x ≤ (c * t), (-sin(((2 * π) * ((t * c / λ) - x / λ)))), 0]
A: (0, w_1(0))
w_2(x) = If[b - (c * t) ≤ x ≤ b, (-sin(((2 * π) * ((t * c / λ) + x / λ - b)))), 0]
i_1(x) = w_1(x) + w_2(x)
a = true
inter(x) = If[0 ≤ x ≤ b, i_1]
d = true